
/* Appendix 3 */


use "/Users/mp/research/The2010s/dataapp3.dta"

// generate random = runiform()

/* See notes in appendix to understand below */

/* For first column of table */

replace ifor_justif38 = ifor_justif38p if random<.10
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized)

replace ifor_justif38 = ifor_justif38p if random<.20
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized)
 
replace ifor_justif38 = ifor_justif38p if random<.30
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized)

replace ifor_justif38 = ifor_justif38p if random<.40
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) /*this is the last one*/

replace ifor_justif38 = ifor_justif38p if random<.45
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized)


replace ifor_justif38 = ifor_justif38p if random<.50
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized)


replace ifor_justif38 = ifor_justif38p if random<.55
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized)

replace ifor_justif38 = ifor_justif38p if random<.60
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) /*drops out*/



clear
use "dataapp3.dta"

replace ifor_justif54 = ifor_justif54p if random<.10
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) /* last one*/


clear
use "dataapp3.dta"

replace ifor_justif60 = ifor_justif60p if random<.10
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif60 = ifor_justif60p if random<.15
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif60 = ifor_justif60p if random<.20
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif60 = ifor_justif60p if random<.25
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 
 
  
replace ifor_justif60 = ifor_justif60p if random<.30
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized)  


replace ifor_justif60 = ifor_justif60p if random<.35
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) /* drops out*/


clear
use "dataapp3.dta"

replace ifor_justif24 = ifor_justif24p if random<.10
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif24 = ifor_justif24p if random<.15
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif24 = ifor_justif24p if random<.20
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif24 = ifor_justif24p if random<.25
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) /*drops out*/


clear
use "dataapp3.dta"

replace ifor_justif17 = ifor_justif17p if random<.10
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif17 = ifor_justif17p if random<.15
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif17 = ifor_justif17p if random<.20
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif17 = ifor_justif17p if random<.25
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif17 = ifor_justif17p if random<.30

lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif17 = ifor_justif17p if random<.35

lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) /*drops out*/



clear
use "dataapp3.dta"

replace ifor_justif54 = ifor_justif54p if random<.10
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif54 = ifor_justif54p if random<.15
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif54 = ifor_justif54p if random<.20
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif54 = ifor_justif54p if random<.25
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 



replace ifor_justif54 = ifor_justif54p if random<.30
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif54 = ifor_justif54p if random<.35
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif54 = ifor_justif54p if random<.40
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif54 = ifor_justif54p if random<.45
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif54 = ifor_justif54p if random<.50
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif54 = ifor_justif54p if random<.55
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif54 = ifor_justif54p if random<.60
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) /*drops out*/





/* Second column of table */


clear
use "dataapp3.dta"


replace ifor_justif38 = 0 if random<.10
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif38 = 0 if random<.15
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif38 = 0 if random<.20
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif38 = 0 if random<.25
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif38 = 0 if random<.30
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif38 = 0 if random<.35
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif38 = 0 if random<.40
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif38 = 0 if random<.45
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif38 = 0 if random<.50
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif38 = 0 if random<.55
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif38 = 0 if random<.60
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized)


replace ifor_justif38 = 0 if random<.65
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized)


replace ifor_justif38 = 0 if random<.70
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized)


replace ifor_justif38 = 0 if random<.75
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized)


replace ifor_justif38 = 0 if random<.80
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) /* fails here */ 



clear
use "dataapp3.dta"


replace ifor_justif60 = 0 if random<.10
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif60 = 0 if random<.15
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif60 = 0 if random<.20
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif60 = 0 if random<.25
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif60 = 0 if random<.30
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif60 = 0 if random<.35
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif60 = 0 if random<.40
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif60 = 0 if random<.45
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif60 = 0 if random<.50
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif60 = 0 if random<.55
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif60 = 0 if random<.60
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) /* fails here */


clear
use "dataapp3.dta"


replace ifor_justif54 = 0 if random<.10
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif54 = 0 if random<.15
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) /* modified here */

replace ifor_justif54 = 0 if random<.20
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif54 = 0 if random<.25
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif54 = 0 if random<.30
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif54 = 0 if random<.35
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif54 = 0 if random<.40
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif54 = 0 if random<.45
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif54 = 0 if random<.50
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif54 = 0 if random<.55
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif54 = 0 if random<.60
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif54 = 0 if random<.65
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) /* fails here */



clear
use "dataapp3.dta"


replace ifor_justif17 = 0 if random<.10
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 



replace ifor_justif17 = 0 if random<.15
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif17 = 0 if random<.20
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif17 = 0 if random<.25
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif17 = 0 if random<.30
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif17 = 0 if random<.35
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif17 = 0 if random<.40
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif17 = 0 if random<.45
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif17 = 0 if random<.50
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif17 = 0 if random<.55
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) /* fails here */



clear
use "dataapp3.dta"


replace ifor_justif24 = 0 if random<.10
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 


replace ifor_justif24 = 0 if random<.15
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif24 = 0 if random<.20
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) /*modified here*/

replace ifor_justif24 = 0 if random<.25
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif24 = 0 if random<.30
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif24 = 0 if random<.35
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) 

replace ifor_justif24 = 0 if random<.40
 
lasso logit adopted ifor_justif1-ifor_justif60, selection(plugin)
lassocoef, display(coef, penalized) sort(coef, penalized) /* fails here*/


















